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BASIC 


¡O IF-THEN-ELSE 


LGUNAS versiones del 
BASIC permiten la uti- 
lización de una sen- 
tencia de bifurcación 
condicional más po- 
tente: IF-THEN-ELSE, 
que tiene el siguiente 
formato. 


IF <condición> THEN <lista de instruc- 
ciones 1> 
ELSE <lista de instrucciones 2 > 


Si se verifica la condición indicada en- 
tre IF y THEN, se ejecutará la lista de ins- 
trucciones 1y, en caso contrario, la lista 
de instrucciones 2. 

En el programa 1 podemos ver un ejem- 


plo: 


REM OAXAXEAAAARR 

20 REM * NUMEROS  * 

30 REM AXE 

40 CLS 

50 INPUT "DIME UN NUMERO "¿N 

$0 PRINT :¿PRINT 

70 IF N=0 THEN PRINT "CERO" :END 

80 IF N>0 THEN PRINT "POSITIVO" 
ELSE PRINT "NEGATIVO" 


Si el número tecleado es cero, se verifi- 
cará la condición de la línea 70 y, como 
hay un END, al final, la línea 80 no se eje- 
cutará. Sin embargo, si tecleamos cual- 
quier otro número, la ejecución pasará a 
la línea 80, donde, si el número tecleado 


es mayor que cero, se verificará la con- 
dición y, por tanto, se imprimirá en pan- 
talla POSITIVO. Si, por el contrario, no se 
cumple la condición, es decir, el número 
tecleado es menor que cero, entonces 
se imprimirá en pantalla NEGATIVO. 

Las máquinas en estudio, excepto el 
COMMODORE y el SPECTRUM, disponen 
de la instrucción ELSE. 


'O Condiciones compuestas. 
Operadores lógicos 


Hasta ahora las condiciones vistas en 
la instrucción IF-THEN eran condiciones 
simples; sin embargo, podemos utilizar 
condiciones tan complejas como desee- 
mos haciendo uso de los operadores ló- 
gicos, también llamados operadores 
booleanos por estar basadas en el álge- 
bra de Boole. 

Los operadores lógicos son los siguien- 
tes: 


NOT 
AND 
OR 
XOR 
EQU 
IMP 


Una condición compuesta es aquélla 
formada por dos o más condiciones sim- 
ples ligadas entre sí por un operador ló- 
gico (NOT es el único que cumple esta 
norma general). 

Por tanto, podríamos formar condicio- 
nes compuestas tan complejas como, por 
ejemplo, ésta: 


2 < 3 AND NOT 3 + 2 = 6 OR 4/2-1>=-3 


Realmente es prácticamente imposi- 
ble que lleguemos a encontrar alguna 
vez una condición tan extraña. Sin em- 
bargo, es conveniente saber cómo ana- 
liza el ordenador una condición de este 
tipo para saber si es verdadera o falsa. 
Ya vimos que los operadores aritméticos 
seguían unas prioridades en el orden de 
las operaciones; pues bien, en la tabla 
de la figura 1 podemos ver la prioridad 
de todos los operadores (aritméticos, de 
relación y lógicos). 


Tipo Prioridad 


Aritméticos 
De relación 


lA | Prioridades de los operadores. 


Si analizamos la condición puesta de 
ejemplo siguiendo esta tabla podemos 
comprobar que es verdadera. 

A continuación vamos a analizar el 
efecto que produce cada uno de los 
operadores lógicos: 


NOT 


Es el único que no se emplea para co- 
nectar dos condiciones simples, sino que 
siempre va asociado a una única condi- 
ción simple. Su efecto es invertir el resul- 
tado de la condición a la que afecta de 
modo que si la condición es verdadera, 
NOT la transforma en falsa y viceversa. 


Condición-Simple-1 
Y 


Cond.-Simple-1 Cond.-Simple- 


V 
F 
V 
e 
Si 
V 
F 
V 
F 


Condición-Simple-2 


2 ; 


Por ejemplo: 
NOT A=B 


será cierto si A es distinto de B, mientras 
que si A y B son iguales, la condición será 
falsa. De aquí se deduce que la condi- 
ción compuesta NOT A=B es equivalente 
a la condición simple A<>B. 


AND 


Conecta dos o más condiciones sim- 
ples. La condición compuesta resultante 
solo es cierta si lo son cada una de las 
condiciones simples que la forman. 


OR 


Conecta dos o más condiciones sim- 
ples. Para que la condición compuesta 
resultante sea cierta basta con que lo 
sea al menos una de las condiciones sen- 
cillas que la integran. 


XOR 


Conecta dos o más condiciones senci- 
llas. La condición global será cierta 
cuando lo sea una sola de las condicio- 
nes elementales. 


EQU 


Conecta dos o más condiciones senci- 
llas. La condición compuesta será cierta 
cuando las condiciones simples que la 
integran sean o bien todas ciertas o bien 
todas falsas. 


IMP 


Conecta dos o más condiciones senci- 
llas. La condición resultante será cierta 
siempre que la primera condición ele- 
mental sea falsa. 

En la figura 2 podemos ver las tablas de 
verdad de los cinco últimos operadores 
lógicos, que pueden servir para aclarar 
el efecto de cada uno de ellos. 


Cond.-Simple-1 AND Cond.-Simple-2 
v 
OR Cond.-Sim.-2 


F 
F 
F 
Cond.-Sim.-1 O 
A 
V 
V 
z 


. BASIC 


Cond.-Simple-1 Cond.-Simple-2 Cond.-Sim.-1 XOR Cond.-Sim.-2 
V V 


F 
V 
F 
Si 


Cond.-Simple-1 Cond.-Simple-2 


Cond.-Simple-1 Cond.-Simple-2 


nn *.<<0| . << 
n<.m<Q|.<n.n< 


Tablas de verdad de los operadores lógicos. 
V = verdadero. F = falso. 


A continuación vamos a desarrollar al- 
gunos programas como ejemplos de 
aplicación de las condiciones compues- 
tas. 

El programa 2 sirve para determinar si 
un alumno ha aprobado o no una asigna- 
tura, dependiendo de las notas que 
haya obtenido en tres exámenes parcia- 
les. La condición para aprobar la asigna- 
tura es haber aprobado cada uno de los 
tres exámenes independientemente, 
con una nota mayor o igual que 5. 


REM AR 

20 REM * EXAMENES  x 

30 REM Rx RRAR 

40 CLS. 

50 INPUT "TECLEE LAS NOTAS DE LOS TRES 
PARCIALES "¿N1,N2,N3 

60 CLS 

70 PRINT "EXAMEN" ;TAB(20); "NOTA" 

30 PRINT 

20 PRINT "PRIMER PARCIAL" ¿TABC20)¿N1 

100 PRINT "SEGUNDO PARCIAL" ¡TAB(20) ; ¡N2 

110 PRINT "TERCER PARCIAL"¿TAB(20> ; ¡N3 

120 PRINT :¿PRINT 

130 PRINT "CALIFICACION FINAL" 

190 PRINT " =-==============-- 

150 IF N1>=5S AND N2>=S AND N3>=5 THEN 
PRINT "APROBADO" ¿END 

PRINT "SUSPENSO" 


Para que la condición compuesta de la 
línea 150 se verifique es necesario que se 
verifiquen cada una de las tres condicio- 
nes simples que la forman; por tanto, te- 
nemos que utilizar el operador AND. En 
caso de no cumplirse alguna de las con- 


Cond.-Sim.-1 IMP Cond.-Sim.-2 
V 


F 
V 
V 


diciones sencillas, la ejecución del pro- 
grama pasará a la línea 160, donde se 
imprimirá en pantalla SUSPENSO. 

Por otra parte, en este programa se ha 
cuidado especialmente la presentación 
en pantalla, ya que para que un progra- 
ma sea bueno no basta con que funcio- 
ne correctamente, sino que es conve- 
niente que además la presentación en 
pantalla sea atractiva y ordenada. En la 
figura 3 podemos ver el resultado de una 
posible ejecución. 


Primer parcia 
Segundo parcial 
Tercer parcial 


Calificación final 
Aprobado 
OK 


Presentación en pantalla del programa 2 
ca (EXAMENES). 


Por otra parte, podemos observar que 
el programa funcionaría exactamente 
igual si cambiáramos la condición com- 
puesta por su contraria. 

Para comprobar esto sólo tenemos que 
cambiar la línea 150 por la siguiente: 


150 IFN1<5 OR N2<5 OR N3<5 
THEN PRINT “SUSPENSO”:END 


y la línea 160 por: 
160 PRINT “APROBADO” 


También podríamos sustituir ambas lí- 
neas por una unica linea de la forma si- 
guiente: 


150 IF NI<5 OR N2<5 OR N3<5 THEN 
PRINT “SUSPENSO” ELSE PRINT “APROBADO” 


El programa 3 es un ejemplo del uso de 
condiciones compuestas con datos alfa- 
numéricos. Supondremos que el progra- 
ma funciona el día de San Joaquín y San- 
ta Ana y su objetivo es felicitar a las per- 
sonas que sea su santo. 


REM RR 
20 REM * FELICITACION * 
30 REM seee ed e dl 6 E E E E RR 
40 CLS 

50 INPUT "¿COMO TE LLAMAS? "¡N$ 

$0 PRINT :PRINT 

70 IF N$="JOAQUIN" OR N$="ANA" THEN 
PRINT "FELICIDADES "¿N$;", YA SE 
QUE HOY ES TU SANTO" :END 

PRINT "HOLA "¿N$;" ¿COMO ESTAS?" 


Hay que tener en cuenta que el nom- 
bre hay que teclearlo en mayúsculas, ya 
que la cadena «Joaquín» no es igual que 
«JOAQUIN» ni la cadena «Ano» es igual a 
«ANA». 

Por otra parte, y al igual que en el pro- 
grama 2, en este programa también po- 
dríamos poner la condición compuesta 
contraria. Sólo tendríamos que cambiar 
las líneas 70 y 80 por las siguientes: 


70 IFNS<>"“JOAQUIN” AND N$<>"ANA” 
THEN PRINT “HOLA”; N$; “¿COMO ESTAS”: 
END 

80 PRINT “FELICIDADES”; N$, “ , YA SE QUE 
HOY ES TU SANTO” 


o por una única línea 70 utilizando la ins- 
trucción ELSE. 

Finalmente, el programa 4 utiliza varias 
condiciones compuestas. El ordenador, 
tras pedir una nota (numérica), imprime 
la calificación correspondiente aten- 
diendo al siguiente criterio: 


NO EIA SUSPENSO 

5 <= NOTA < 7 ....... APROBADO 

7 <= NOTA < 9 ....... NOTABLE 
NOTA >=9 ....... SOBRESALIENTE 


Además, si tecleamos una nota menor 
que cero o mayor que 10, el ordenador 
nos advertira que dicha nota no es vali- 
da. 


REM AXEHHHEEAE EEE RR 

20 REM * CALIFICACIONES * 

30 REM XAXAXHAEALEL ARAS 

40 CLS 

50 INPUT "TECLEE LA NOTA "¿N 

$0 PRINT :PRINT 

70 IF N<O OR N>10 THEN PRINT "ESA NOTA 
NO ES VALIDA" ¡END 

80 IF N<S THEN PRINT "SUSPENSO" 

90 IF N>=5 AND N<7 THEN PRINT "APROBADO" 

100 IF N>=7 AND N<? THEN PRINT "NOTABLE" 

110 IF N>=9 THEN PRINT "SOBRESALIENTE" 


Por último, hay que señalar que todos 
los ordenadores no disponen de todos 
los operadores lógicos mencionados. Los 
más comunes son NOT, AND y OR. En cual- 
quier caso, en la tabla de la figura 4 po- 
demos ver operadores disponibles en 
cada una de las máquinas en estudio. 


¡ Operadores disponibles en los distintos 
Ordenadores. 


| Direcciona- 
miento 
indexado 


UANDO el dato se en- 
cuentra sumando al 
valor de la posición 
de memoria indica- 
da el contenido del 
registro X o del regis- 
tro Y, estamos utili- 
zando el “direcciona- 
miento indexado” o direccionamiento 
por índices. 

Supongamos que hemos cargado el re- 
gistro X con el número $10 mediante la 
instrucción ya vista LDX+$10. Si ahora in- 
troducimos el comando LDA $C000,X, el 
microprocesador interpretará que se 
debe cargar al ACU el valor que se en- 
cuentre en la posición de memoria 
$C000 + $10 = $CO010. 

De la misma manera podríamos haber 
cargado el registto Y con un número 
cualquiera, y después introducir el co- 
mando LDA $C000,Y. 

Como puede observarse, se trata de un 
comando de tres bytes, uno para el có- 
digo del comando LDA y dos para la po- 
sición de memoria especificada. 

Este tipo de direccionamiento es espe- 
cialmente útil en la programación de bu- 
cles. Adjudicando diferentes valores de 
X (incrementando o decreciendo el va- 
lor contenido en él), se pueden ir obte- 
niendo al ser cargados en el ACU los va- 
lores que se encuentran en posiciones 
de memoria consecutivas como ya vere- 
mos. 

5. También dentro de lo que hemos 
llamado direccionamiento “Zero page” 
existe el “direccionamiento indexado”. 
Un ejemplo sería: 


LDA $ 2B,X Comando de 2 Bytes 


MAQUINA 6502 


(COMMODORE 64) 
MODOS DE DIRECCIONAMIENTO 


En este caso sólo se utiliza el registro X 
como índice, de tal forma que el coman- 
do 


LDA $2B,Y 


no tiene sentido alguno. 

El correspondiente comando BASIC 
para el direccionamiento indexado se- 
ria: 

A = PEEK ($C000 + X) 


6. Veamos ahora un modo de direc- 
cionamiento un poco más complejo 
pero que permite una programación más 
potente. Es el “direccionamiento indirec- 
to por índices”. 

— Por el registro Y: Ahora es el momen- 
to de explicar un poco eso de “Página 
Cero” y qué es lo que la hace tan impor- 
tante. 

Como dijimos, se trata de los 256 pri- 
meros bytes del área direccionable del 
procesador. 

Allí se encuentran la mayor parte de los 
datos o variables necesarios para el 
correcto funcionamiento del ordenador, 
de tal manera que algunos registros de- 
ben tener un número concreto, mientras 
que otros pueden ser modificados de 
una manera útil. 

¿Por qué se almacenan aquí? Sencilla- 
mente porque pueden ser direccionados 
con un solo byte. 

Además, muchos de estos datos se en- 
cuentran en forma de “vectores, apunta- 
dores o pointers”. 


Un vector se compone de dos posicio- 
nes contiguas de memoria en la página 
cero, cuyos contenidos apuntan a otra 
posición de memoria. 


Veámoslo con un ejemplo: el área BASIC 
comienza en la posición de memoria 
2049=5$0801. Este valor debe ser “sabido” 
por el ordenador; de lo contrario, no po- 
dría colocar nuestros programas. 


Pues bien, en las posiciones de memo- 
ria 43/44 se encuentran los valores 1 y 8, 
respectivamente. 


PEEK (43) = 1 = $01 
PEEK (44) = 8 = $08 


Esto es realmente el byte bajo y el byte 
alto de la posición de memoria $ 08 0] = 
2049. 

Para hacer el cálculo en el sistema de- 
cimal basta con hacer: 

Posición de memoria = byte bajo + 256 
x byte alto 


2049 = 1 + 256 x 8 


Si cambiamos alguno o los dos valores 
de las posiciones 43/44, habremos cam- 
biado el área BASIC disponible. 

Así, la página cero dispone de vecto- 
res que le indican al microprocesador 
cómo se encuentra estructurada el área 
direccionable del ordenador. 

Ahora podemos continuar con el direc- 
cionamiento indirecto mediante el regis- 
tro Y. 

Supongamos que la dirección de me- 
moria 172 = $AC contiene un 60 = $3C y 
la 173 = SAD un 3 = $03. 

Estas dos posiciones forman un apunta- 
dor hacia la posición 828 = $033C, que 
es donde empieza el buffer o memoria in- 
termedia del casete. 

La instrucción correspondiente al di- 
reccionamiento indirecto sería: 


LDA ($AC), Y 


y quiere decir “carga al acumulador lo 
que haya en la posición” $033C+Y, sien- 
do $03 el número que hay en SAC y $3C 
el número que hay en SAD. 

La correspondiente función BASIC sería: 


A = PEEK (PEEK($AC) + 256 * PEEK(SAD) + Y) 


Alguno puede preguntarse: muy bien, 
pero ¿por qué no nos referimos directa- 
mente a la posición de memoria en cues- 
tión? 

LDA $XXXX direccionamiento absoluto 
o bien 

LDA $XXXX,Y direccionamiento indexa- 
do en Y 


Si uno se fija bien, puede observar que 
con el direccionamiento indirecto con el 
registro Y no se necesita saber dónde se 
encuentra tal posición de memoria, tan 
sólo que ocupa el lugar Ne “Y” a partir de 


donde apunte el vector, y éste es inamo- 
vible. 

Más claro: el vector que apunta al área 
del buffer del casete siempre está en las 
posiciones 172/173 y podemos leerlo o 
escribirlo (modificarlo) ahí. Sin embargo, 
dicha área puede ser trasladada a otra 
parte de la memoria, que no sea su con- 
figuración normal desde la posición 
828-1023. 


Ahora para referirnos al dato Ne “Y” de 
esa “tabla” o área, mediante el direccio- 
namiento absoluto, o el indexado nece- 
sitamos conocer dónde ha sido traslada- 
do el buffer del cassette, mientras que 
utilizando el direccionamiento indirecto, 
como el vector no puede ser modificado 
a otras posiciones que la 172/173, basta- 
ría con escribir 


LDA ($AC),Y 


El microprocesador se encargará de 
saber dónde está ahora esa zona reser- 
vada al buffer del casete y cargar en el 
ACU el dato Ne “Y” dentro de ella. 

— Por el registro X: también aquí dos 
direcciones contiguas de la página cero 
forman un apuntador a la dirección bus- 
cada. 

La diferencia con el caso anterior es 
que en este caso suma primero el conte- 
nido del registro X a la posición de la pá- 
gina cero direccionada, formándose un 
nuevo apuntador. 

La instrucción correspondiente a este 
direccionamiento es: 


LDA ($BB,X) 


y quiere decir: “Sitúate en la posición de 
memoria $BB+X y carga al ACU el conte- 
nido de la posición de memoria a la que 
apunta el vector SBB + X/$BC + X de la 
página cero” 

Supongamos que hemos cargado el re- 
gistro X con el número $00 mediante la 
instrucción LDX 1 $00 y que a continua- 
ción introducimos el comando LDA 
(SBB,X). 

En este caso, el apuntador formado 
será $BB + $00 / $BC + $00, o sea, 
$BB/$BC, que en decimal equivale a 
187/188. 

Este vector apunta siempre a la zona 
de memoria donde encontraremos el 
nombre del programa cargado en me- 
moria. 


Mm MÁQUINA 6502 


En “condiciones normales”, el valor en 
$BB es $FO y el valor en $BC es $9F. Por 
tanto, el vector apunta a la dirección 
$9FFO o, lo que es lo mismo, 240 + 256 * 
159 = 40944 en decimal. 

Pues bien, con el comando LDA ($BB,X), 
si en X hay un $00, se cargará en el ACU 
el valor de la posición $9FFO = 40944 y 
corresponderá a la primera letra del 
nombre del fichero de 16 caracteres. 
_La instrucción equivalente en BASIC se- 
ria: 

A = PEEK (PEEK ($BB + X) + 256 * PEEK ($BC 
+ X)) 


A continuación se expone una lista re- 
sumen de los comandos de carga: 


| Modo de direccionamiento | LDA | LDX | LDY_ 


Inmediato 

Absoluto 

Zeropage 

Absoluto indexado por X 


Absoluto indexado por Y 
Zeropage indexado por X 
Zeropage indexado por Y 
Indirecto indexado por Y 
Indirecto indexado por X 


Existen otros modos de direcciona- 
miento que no tienen sentido dentro de 
los comandos de carga y que serán tra- 
tados más adelante. 


” 
PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


e , IN . Cambia el color de la tinta. 
as Programa: on . Realiza la función over. 
Graficator Cx.y,x . Nos dibuja un círculo. 


L primer programa de 
este tomo nos permi- 
tirá realizar gráficos 
más de prisa y 
ahorrando más me- 
moria que en BASIC. 
Esto es gracias a una pp id 
rutina en código má- 
quina que nos permitirá tener todos los 
comandos gráficos del SPECTRUM y algu- 
nos mas. Estos son: 


zro 


Z 
DIZ TD TUN OH TU 


N 
A 
A 
ds 
A 
s 
= 


F 


GRAF ICATOR 


ompo mm 


P xy . Coloca un punto en la panta- 5 o ad 
lla. 

Mxy . Dibuja una línea. 

U y . Dibuja una línea hacia arriba. 

D y . Dibuja una línea hacia abajo. 

Rx . Dibuja una línea hacia la de- 
recha. 

LX . Dibuja una línea hacia la iz- 


quierda. Instrucciones del Graficator. 


Kill 
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Todos estos comandos han de ir des- 
pués de la instrucción: 


RANDOMIZE USR 64500 


en una línea REM. 


GRAF ICATOR 


ARHORA VEAMOS UN EJEMPLO. 
Or EJEMPLO TENEMOS LA LINEA: 


JBamta E Pa rta didde REM PO,O 
55 DSO L2e5s 


APARECERIA EN PANTALLA 


GRAFICATOR 


AHORA VEAMOS UN EJEMPLO. 


z 
- D 
mn a 


um 
+ Q PAD 


PANDO 
lueni0 7 
nen 


NPRRNDI 
- 


¡A o] 
MR 


A] 


10>PRINT $0;AT 1,0;FLASH 1;PAP 


ER 7;INK 1;INVERSE 1;"CARGANDO D 
ATAS. ESPERA UN MOMENTO” 
20 PRINT AT 12,8; INK 5;"CHECK 


SUM = 0": GO SUB 9500 
30 BEEP .5,0: BEEP .5,5: BEEP 
.5,8 : 
40 CLS :-LET Y=0: LET X=11: LE 


T A$="GRAFICATOR": LET C=6: GO S 


BID 


E _Siglo Cultural MA 


Despedida del programa. 


El programa nos muestra 
un ejemplo de su funcionamiento. 


Otro ejemplo de su funcionamiento. 


La utilización del programa no reviste 
ninguna dificultad, ya que el programa 
cargador no sólo introduce el código 
máquina en memoria, sino que nos expli- 
ca cómo utilizarlo, nos muestra algunos 
ejemplos y nos permite grabarlo en for- 
ma de BYTES en la cinta. 


UB 8000: LET Y=1: 
AS=" — == E 
UB 8000 

50 LET A$=" UN PROGRAMA ESCRIT 


LET X=10: LET 
: LET C=3: GO S 


O TOTALMENTE EN C/M PARA QUE TU 
S DIBUJOS SE REALIZEN A MAS VELO 
CIDAD Y AHO- RRANDO MEMORIA. ": L 

ET X=0: LET Y=3: LET C=4: GO SUB 
8000 


60 LET A$=" EL PROGRAMA ADMITE 
COMANDOS QUEREALIZAN LA MISMA 
FUNCION QUELOS PROPIOS DEL SPE 

CTRUM Y ALGU-NOS MAS. ": LET X=0: 
LET Y=8: GO SUB 8000 

70 LET A$=" ESTAS RUTINAS NO S 
ON RELOCALIZABLES DEBIDO A SU EX 
TENSION PEROESTAN LO SUFICIENTE 
METE ALTAS COMO PARA QUE NO MÓLE 
STEN A TU PROGRAMA EN BASIC. ": L 
ET X=0: LET Y=13: GO SUB 8000 

90 GO SUB 7000 

100 INK 6: CLS : LET A$="GRAFIC 
ATOR": LET X=11: LET Y=0: LET C= 
4: GO SUB 8000: LET A$="-------- 
=---": LET X=10: LET Y=1: LET C= 
5: GO SUB 8000 

110 LET A$=" LA FORMA DE UTILI 
ZAR ESTE :'PRO-GRAMA ES LA SIGUIEN 
TE:": LET X=0: LET Y=3: LET C=6: 

GO SUB 8000 

120 LET A$="1- EL PROGRAMA SE A 
RRANCA CON RANDOMIZE USR 64 
500.": LET X=1: LET Y=7: LET C=7 
: GO SUB 8000 

130 LET A$="2- DESPUES IBA UNA 


SENTENCIA REM, Y A CONTIN 
UACION DE ESTA LOS COMANOS 
- ORDENES QUE UTILIZES.": 


LET X=1: LET Y=10: GO SUB 8000 
140 LET A$="3- TODO ESTO IRA EN 
UN NUMERO DE LINEA CUALQUI 

ERA. ": LET X=1: LET Y=15: GO SUB 
8000: GO SUB 7000 
200 CLS : LET A$="GRAFICATOR": 

LET Y=0: LET X=11: LET C=86:.G0 S 

UB 8000: LET A$="------=------ eS 

LET X=10: LET Y=1: LET C=4: GO S 

UB 8000 
210 LET A$=" LOS COMANDOS POSIB 

LES SON: ": LET-X=2: LET Y=3:. LET 
C=7: GO SUB 8000 


220 LET A$="Px,y --- PLOT EN LA 
POSICION Xx,y. IGUAL 
QUE, EN EL BASIC.": L 


ET X=2: LET Y=5: LET C=6: GO SUB 
8000 


,»Yr. DON- DE x E y 

SON LAS COORDENADA 
S DEL CEN TRO DEL CI 
RCULO Y r EL RADIO D 
EL MISMO. COMO EN BA 


230 LET A$="Mx,y --- TRAZA UNA 
LINEA HAS TA LA POSI 
CION x,y RELATIVA A 
L ULTIMO PLOT. COMO 

DRAW EN BASIC. ": L 
ET X=2: LET Y=9: GO SUB 8000. 

240 LET A$="0n ----- OVER n. n 
PUEDE TE- NER CUALQU 
IER VALOR ENTRE O Y 
255. SI n ES O SE HA 
CE OVER O Y CUALQUIE 
R OTRO VA LOR OVER 1 
. COMO EN BASIC.": L 
ET X=2: LET Y=15: GO SUB 8000 

250 GO SUB 7000: GO SUB 7500 

300 LET A$="In INK n. DON 


DE n SERA UN NUMERO 
ENTRE O Y 7. IGUAL Q 
UE EN BA- SIC.": LET 


X=2: LET Y=5: GO SUB 8000 
310 LET A$="Cx,y,r - CIRCLE x,y 


SIC.": LET X=2: LET Y=10: GO SUB 
8000 
320 GO SUB 7000: GO SUB 7500 


400 LET A$="Un ----- UP n. DIBU 
JA UNA LI NEA DE LO 
NGITUD n HACIA ARRI 


BA.": LET X=2: LET Y=5: GO SUB 8 
000 


410 LET A$="Dn ----- DOWN n. DI 
BUJA UNA LINEA DE L 
ONGITUD n HACIA ABAJ 


O.": LET X=2: LET Y=9: GO SUB 80 
00 


420 LET A$="Rn ----- RIGHT n.DI 
BUJA UNA LINEA HACI 
A LA DERE CHA DE LON 


GITUD n.": LET X=2: LET Y=13: GO . 
SUB 8000 


430 LET A$="Ln ----- LEFT n. DI 
BUJA UNA LINEA DE L 
ONGITUD n HACIA LA I 


ZQUIERDA. ": LET X=2: LET Y=17: G 
O SUB 8000 

440 LET A$="LOS ESPACIOS EN BLA 
NCO NO CAUSANNINGUN EFECTO. ": LE 
T X=0: LET Y=20: LET C=5: GO SUB 
8000: GO SUB 7000 

500 CLS : LET A$="GRAFICATOR": 
LET C=7: LET X=11: LET Y=0: GO 
UB 8000: LET A$="-----=-=-=-=-=--- e 
LET C=3: LET X=10: LET Y=1: GO $S 
UB 8000 

510 LET A$="AHORA VEAMOS UN EJE 
MPLO.**LET X=4PLET Y=9: LET::C= 
6: GO SUB 8000 

520 LET A$="SI POR EJEMPLO TENE 
MOS LA LINEA: ": LET X=0: LET C=4 
: LET Y=5: GO SUB 8000 

530 LET A$="550 RANDOMIZE USR 6 
4500:REM PO,O U5O R255 D50 L255" 
: LET X=0: LET Y=7: LET C=7: GO 
SUB 8000 

540 LET A$="NOS APARECERIA EN P 
ANTALLA:.": LET,X=3: LET Y=10: LE 
T C=6: GO SUB 8000 

550 RANDOMIZE USR 64500: REM PO 
,0 U5O R255 D50 L255 

560 GO SUB 7000: GO SUB 7500 
600 LET A$="Y SI TENEMOS :": LE 
T X=9: LET Y=5: GO SUB 8000 

610 LET A$="650 RANDOMIZE USR 8 
4500:REM PO,O U50 R255 D50 L255 
17 C027,26,25 16 .C052;25;325:.18:C77 
28,25 14 :C102,20,29 "19. 0127, 25, 
25,12 0152,25:20:.113 0147205283. 1 
7.C202,28,285 I8 C227,25;28'": LET 

=0: LET Y=7: LET C=7: GO SUB 8 
000 

850 RANDOMIZE USR 64500: REM 

PO,O U50 R255 D50 L255 17 C27, 
25,25. 16 :C52,25,25' 158C077,25,25 
4 C102,25,29" 19 .C187,29,20 12 € 
152,29,29 IL: CUTE GOONeO LT: .GLVZ : 
25,25 18. C227,28528 
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660 GO SUB 7000: GO SUB 7500 
700 CLS : PRINT AT 10,6; INK 6; 
INVERSE 1;"” GRABO EL PROGRAMA? 
710 IF INKEY$="N" OR INKEY$="n" 
THEN BEEP .1,35: GO TO 800 
720 IF INKEY$<>"S" AND INKEY$<> 
"s" THEN GO TO 710 

730 BEEP .01,20: PRINT AT 21,11 


; INK 5;"PULSA ENTER": IF INKEY$ 


<>CHR$ 13 THEN GO TO 730 
740 SAVE "GRAFICATOR" LINE 1 
800 FOR I=1 TO 100: NEXT I: CLS 
: PRINT AT 10,3% INK 4; INVERSE 
1;" GRABO EL CODIGO MAQUINA? ": 
810 IF INKEY$="N" OR INKEY$="n" 
THEN BEEP .1,35: GO TO 9600 
820 IF INKEY$<>"S" AND INKEY$<> 
"s" THEN GO TO 810 
830 BEEP .1,20: PRINT AT 21,11; 
INK 7;"PULSA ENTER": IF INKEY$< 
>CHR$ 13 THEN GO TO 830 
840 SAVE "GRAF-CODE "CODE 64500 
,500: GO TO 9600 
6999 sTOP 
7000 FOR I=0 TO 1 STEP O: FOR J= 
O TO 7: PRINT *0;AT 1,8; INK J;" 
PULSA UNA TECLA": BEEP .01,J+20: 
IF INKEY$<>"" THEN LET J=8: LE 
T I=2 
7010 NEXT J: NEXT I: RETURN 
7500 FOR I=5 TO 21: PRINT AT 1,0 


dd 
, 


": NEXT 1: PRINT *$0;AT 1,8;" 
“: RETURN 
8000 PRINT AT Y,X;: FOR I=1 TO L 
EN A$: PRINT INK C;A$(1);: BEEP 
.01,35: NEXT 1: BEEP .05,-10: P 
AUSE 20: RETURN 
9000 DATA 217,229,217,42,93,92,3 
5,126,254,234,32,55,35, 126,254, 3 
2,40,250,254, 13,40, 47,254, 77,202 
,138,252,254,80,202, 107 
9010 DATA 252,254,85,202, 118,253 
,254,68,202, 144,253, 254,78,202, 1 
71,253,254,82,202, 198,253, 254, 67 
,202,221,252,254,73, 40, 30, 254 
9020 DATA 79,40,8,24,0,207,9,217 
,225,217,201,35,126,254, 49, 40, 6, 
253,54,87,0,24,183,253,54,87,3,2 
4,177,35,126 
9030 DATA 205,210,252,56,225, 237 
,91,141,92,214, 48,203, 131,203, 13 
9,203,147,131,50,141,92,50, 143,9 
2,24,149,205,15,253,126,254 
9040 DATA 44,32,196,58,4,91,95,2 
13,205,15,253,58,4,91,209,87,235 
,213,205, 49,253,225, 43,195, 0,252 
,35,17,0,0,128 s 
9050 DATA 254,45,40,5,22,1, 43,24 
,2,22,255,213,205, 15,253,209, 126 
,254, 44,32,147,58,4,91,79,395, 126 
,254,45,40,5 
9060 DATA 30,1,43,24,2,30,255,21 
3,205,15,253,58,4,91,209, 71,254, 
0,32,1,90,121,254,0,32,1,83,229, 
205,186, 36 
9070 DATA 225,43,195,0,252,254,5 
8,48,5,254,48,56,1,201,55, 201,20 


5,15,253,254, 44,194,55,252,58, 4, 
91,229,205, 40, 45 

9080 DATA 225,205, 15,253,254, 44, 
194,55,252,58,4,91,229,205, 40, 45 
,225,205, 15,253, 58, 4,91,229,205, 
40, 45, 205, 45,35,225 

9090 DATA 43,195,0,252,17,0,0, 23 


7,83,4,91,35,126,205, 210, 252, 216 


, 214, 49,229, 42,4,91,203,:37,93,20 
3,37,209,37,133 
9100 DATA 131,50, 4, 91,225, 24, 229 
,34,125,92,62,175,148, 103,229, 23 
0,7,198,64,79,124,31,31,31,230, 3 
1,71,230,24,07,124 
9110 DATA 230, 192,95,97,125,31,3 
1531:230/31, 111,123 120, 140;90, 2 
2,0,229,213/220, 41,41, 41,41,41,2 
09, 25,209, 123,230; .:7 
9120 DATA 71,62,8,144,71,62,1,13 
5,16,253,31, 182, 119,201,205, 15, 2 
53,58, 4,91,71,229, 42, 125, 92,36, 2 
29,197,205, 49, 253 
9130 DATA 193,225,16, 246,225, 43, 
195,0,252,205,15,253,58,4,91,71, 
229,42,125,92,37,229,197,205, 49, 
253, 193,225,5,32,245 
$140 DATA 225, 43,195,0,252,205,1 
5,253,58,4,91,71,229, 42, 125,92, 4 
5,229,197,205, 49, 253, 193,225, 5, 3 
2,245,225, 43,195,0 
9150 DATA 252,205, 15,253,58,4,91 
,71,229,42,125,92, 44,229, 197,205 
,49,253,193,225,16, 246,225, 43, 19 
5,0,252,0,0,0,0 
9500 LET CHECK=0: FOR I=64500 TO 
64995: READ A: POKE I,A: LET CH 
ECK=CHECK+A: PRINT AT 12,20; INK 
5;CHECK: NEXT I 
9510 IF CHECK<>60804 THEN CLS : 
PRINT AT 9,7; INVERSE 1; INK 6; 
' ERROR EN DATAS ";AT 11,5;" INT 
ENTALO DE NUEVO '": GO TO 9999 
9520 RETURN 
9600 REM DESPEDIDA 
9610 CLS : RANDOMIZE USR 64500: 
REM 13 PO,O MO, 175 M255,0 MO, -17 
5 M-255,0 P3,3 MO, 169 M249,0 MO, 
-169 M-249,0 P6,6 MO, 163 M243,0 
MO, -163 M-243,0 I6 P9,9 MO,157 M 
237,0 MO, -157 M-237,0 P12,12 MO, 
151 M231,0m40, -151 M-231,0 P15,15 
MO, 145 M225,0 MO, -145 M-225,0 
9620 PAPER 5: RANDOMIZE USR 6450 
O: REM IO P20,107 MO, 48 M31,0 MO 
, -48 P20,123 M31,0 P67,91 MO, 57 
M25,0 MO,-9 M9,0 MO, -40 M-9,0 MO 
,-9 M-25,0 P116,76 MO, 55 
9630 RANDOMIZE USR 64500: REM Pi 
31,59 MO0,65 M33,0 MO,-65 M-33,0 
P179,43 M33,0 MO, 40 M-33,0 MO, 32 
M33,0 
9640 PAPER O: INK 7: PRINT AT 17 
,3; Fco. Morales. ";AT 18,3;"c/ 
Corazon de maria, 13";AT 19,3;" 
28002 MADRID": PAUSE O 


D 


. 2 . . n 

Programa: Diario Una vez introducido el programa e 

' g memoria nos aparece un menu con cua- 
El programa que proponemos a conti- tro opciones. Estas son: 

nuación nos permitirá tener nuestro pro- — Introducir textos. 

pio diario electrónico con todas las faci- — Ver/modificar texto. 

lidades que eso conlleva. Gracias a que — Imprimir texto. 

el diario es electrónico, podremos modi- — Salir del programa. 

ficar en cualquier momento cualquier 

parte del texto, visualizarlo e imprimirlo En cualquiera de las tres primeras op- 

en dos tamaños distintos. ciones que elijamos, el ordenador nos 


preguntará el nombre del fichero que 
contiene nuestro diario y la fecha. La fe- 
cha nos la pide porque el diario, al igual 
que un diario de verdad, está organiza- 
do por días. 

A la hora de ponernos a escribir no hay 
ningún problema en escribir una fecha 


INTRODUCIR TEXTO [o anterior a la última escrita. El ordenador 
A AN la gestionará adecuadamente y la orde- 
DA a nará. 


| ¿QUE DESEAS (1-4) 


electronico, Este te permitira | 
e 
Pequeñas, 


Pantalla de menú del Programa Diario. 


El programa está organizado como si 
de un editor de textos se tratase. La úni- 
ca diferencia es que es menos potente, 
pero no por ello menos útil. 


) 
Ejemplo de ejecución del Programa 
Diario. 


Las teclas que podemos utilizar para 
escribir el texto son las siguientes: 


— Las teclas del cursor. 

— La tecla TAB. 

— La tecla BACKSPACE (borra el ca- 
rácter de la izquierda). 

— CONTROL Q para ir a la página ante- 


rior. 
— CONTROL Z para ir a la página si- 
guiente. 
— CONTROL T para terminar la sesión. 
TA) Aparte de comandos normales que o. ] 
puedes utilizar, también puedes hacer uso Lo único que falta por decir es que por 


de éstos. cada fecha contamos con tres páginas 


al 
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distintas de texto que podemos llenar o 
no. Para pasar de una página a otra po- 
demos utilizar las teclas CONTROL Q y 
CONTROL Z o bien poner el cursor al final 
de una página para ir a la siguiente o 
bien poner el cursor al principio de una! 
página para ir a la anterior. 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 


INEA EEES 
REM * * 
REM * DIARIO * 
REM * x 
REM * POR: PETER BERGMANN k 
REM * * 
REM ASOMO OOOO OO OOO OOOO OOOOOIOIOJOJOK 
REM * * 
REM * VARIABLES A 
REM * 
REM x k 
REM * T$ ARRAY DE PAGINAS Y FILAS* 
REM * F$ NOMBRE DEL FICHERO * 
REM * E$ ARRAY TEMPORAL * 
REM * X$3 FLAG (S/N) k 
REM * 1,J CONTADORES k 
REM x O OPCION DEL MENU * 
REM * L$ FICHERO EXISTENTE FLAG * 
REM * S$ STRING TEMPORAL * 
REM * C$ RESPUESTA PARA CONT. * 
REM x D FECHA k 
REM * DI FECHA (DEL REGISTRO) * 
REM * P NUMERO DE LA PAGINA * 
REM *x R NUMERO DE LA FILA x 
REM x C NUMERO DE LA COLUMNA  * 
REM * RL. NUMERO DE LA FILA ANTES x* 
REM * D$ FECHA * 
REM * M$,M MES * 
REM * W$,W DIA * 
REM * Y$,Y AXO * 
REM x R$ RESPUESTA (S/N) * 
REM * AS INPUT CHARACTER x 
REM * S NUMERO DE DIAS EN MES  * 
REM * G$ TAMAZO (G/P) * 
REM + k 
REM AMS SNS SOS OOOO OOOO OOOO OK 
REM 

REM vo PRESENTACION *xkx 

REM 

KEY OFF 

CLS 

PRINT STRING$(79,"x*") 

FOR I = 1 TO 19 


PRINT-— "*x"; TAB(79); "“*" 
NEXT 1 
PRINT STRING$(79,"x") 
LOCATE 8,36: PRINT "DIARIO" 
LOCATE- 9,353. PRENT' "=-=--===- A 
LOCATE 12,26: PRINT "(c) Ed. Siglo Cultural, 1987" 
LOCATE 24,1 


FOR 
REM 
REM 
REM 
DIM 
DIM 
REM 


I = 1 TO 1200: NEXT I 


xokxk DECLARACION DE ARRAYS *x*x* 


E$(80) 
T$(3,20) 


Aunque este programa sólo es válido 
para el IBM, en tomos sucesivos veremos 
las distintas versiones de este programa 
para otros ordenadores. 


670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 


REM ARSS SS SS SS SOS SES OS] aaa olojO Jak 


REM * MENU k 
NES 
REM 
CLS 


LOCATE 3,38: PRINT "MENU" 
LOCATE 4,37: PRINT. "--===-== a 
LOCATE 6,32: PRINT "1 - INTRODUCIR TEXTO" 
LOCATE 7,32: PRINT "2 - VER/MODIFICAR TEXTO" 
LOCATE 8,32: PRINT "3 - IMPRIMIR TEXTO" 
LOCATE 9,32: PRINT "4 - SALIDA" 
LOCATE 14,1: PRINT "(QUE DESEAS (1-4)"; 
INPUT O 
IF (O < 1) OR (O > 4) GOTO 1730 
ON O GOSUB 940, 1080, 1260, 830 
GOTO 660 
REM 
REM *x*x* SALIDA *xx 
REM 
CLS 
PRINT "ADIOS..." 
FOR I=1 TO 10 
PRINT 
NEXT 1 
KEY ON 
END 
GOTO 920 
REM 
REM ASSSSSSSSO ESOO add iO Ojo lO OK 
REM * ENTRADA DEL TEXTO * 
REM ASMSSSSSO OSO lalalala aaa iaa aaa iolololaiojoloJok 
REM 
CLS 


1000 GOSUB 1400 

1010 GOSUB 1500 

1020 GOSUB 2710 

1030 GOSUB 1830 

1040 IF X$ = "S" THEN GOSUB 2150: GOTO 1070 
1050 GOSUB 3470 

1060 GOSUB 2220 

1070 RETURN 

1080 REM 

1090 REM ddiRlalElElolSlal”l”lalal”la lalalala lalalala lalalalolalalalalalalokok 
1100 REM x* BUSCAR/CAMBIAR TEXTO xk 
1110 REM AMRSSS SS SlSlEl”lESSO ESOO ak ak ok 
1120 REM 

1130 CLS, 

1140 GOSUB 1400 

1150 GOSUB 1500 

1160 GOSUB 2710 

1170 GOSUB 1830 

1180 IF X$ = "N" THEN GOSUB 2080: GOTO 1240 
1190 LET P'= 1 

1200 GOSUB 2570 

1210 GOSUB 3470 

1220 GOSUB 2360 

1230 GOSUB 2220 

1240 RETURN 

1250 REM 

1260 REM aaadSRS OSOS ISS lSO SO OSOS” lSO lO lSlOlSlOlOJOlOJOK 


1270 


REM x*x IMPRIMIR TEXTO k 


1280 REM aaaaaSdOSSa OOOO jajajajajajaja jajajajajaja jalalolalolalk ak 


1290 
1300 
1310 
1320 
1330 
1340 
1350 


REM 

CLS 

GOSUB 1400 

GOSUB 1500 

GOSUB 2710 

GOSUB 1830 

IF X$ = "N" THEN GOSUB 2080: GOTO 1390 
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1360 LET P = 1 

1370 GOSUB 3330 

1380 GOSUB 3200 

1390 RETURN 

1400 REM 

1410 REM x**x* INICIALIZACION DE ARRAYS Xxx 
1420 REM 
1430 FOR 1 
1440 FOR 
1450 ET T$(1,J) = SPACE$(80) 

1460 ET ES(J) = " " 

1470 NEXT J 

1480 NEXT 1 

1490 RETURN 

1500 REM 

1510 REM x**x NOMBRE DEL FICHERO A USAR *x*x 

1520 REM 

1530 CLS 

1540 LET L$ = "S" 

1550 LOCATE 1,34 

1560 IF O = 1 THEN PRINT "FICHERO DE SALIDA" ELSE PRINT “FICHERO DE ENTRADA" 
1570 LOCATE 2,33 

1580 IF O = 1 THEN PRINT "------------=--=--- " ELSE PRINT "-----------===-=---- ; 
1590 LOCATE 4,1: PRINT "(CUAL ES EL NOMBRE DEL FICHERO" 

1600 INPUT F$ 

1610 LOCATE 6,1: PRINT "EL NOMBRE ES ";F$ 

1620 ON ERROR GOTO 1790 

1630 OPEN F$ FOR INPUT AS +1 

1640 CLOSE $1 

1650 LOCATE 9,1 

1660 IF L$ = "N" THEN PRINT "ES UN FICHERO NUEVO” ELSE PRINT "ESTE FICHERO YA EX 
ISTE" 

1670 IF (O <> 2) OR (L$ <> "N") THEN GOTO 1720 

1680 LOCATE 11,1: PRINT "NECESITAS TENER UN FICHERO QUE EXISTA" 

1690 PRINT "(ENTER PARA CONTINUA)" 

1700 C$ = INPUT$(1) 

1710 GOTO 1500 

1720 LOCATE 11,1: PRINT "(ESTA CORRECTO (S/N)"; 

1730 INPUT R$ 

1740 IF R$ = "N" THEN GOTO 1500 

1750 IF R$ <> "S" THEN GOTO 1720 

1760 ON ERROR GOTO O 

1770 RETURN 

1780 REM 

1790 REM *** FILE ERROR *xx* 

1800 REM 

1810 LET L$ = "N" 

1820 RESUME 1650 

1830 REM 

1840 REM **x* BUSCAR/LEER FICHERO ANTIGUO *x*x 

1850 REM 

1860 LET X$ = "Y" 

1870 IF L$ = "N" THEN GOTO 2070 

1880 CLS 

1890 PRINT "ESPERE, POR FAVOR... CARGANDO REGISTROS" 

1900 LET X$ = "N" 

1910 OPEN F$ FOR INPUT AS 41 

1920 OPEN "TEMP" FOR OUTPUT AS $2 

1930 WHILE NOT EOF(1) 

1940 INPUT tt1, DI 

1950 IF DI =D THEN LET X$ = "S” ELSE WRITE $2, DI 

1980 FOR I=1 TO 3 


1 TO 3 
1 TO 20 


pe ECN 


1970 FOR J = 1 TO 20 

1980 INPUT +1, S$ 

1990 IF DI <> D THEN WRITE +2, S$: GOTO 2010 

2000 IF S$ = " " THEN LET T$(1,J) = SPACES$(80) ELSE LET T$(1,J) = S$ 
2010 NEXT J 


2020 NEXT 1 
2030 WEND a 


2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 


CLOSE +1 

CLOSE +2 

IF X$ = "N" THEN KILL "TEMP" 

RETURN 

REM 

REM *x*x* FECHA NO ENCONTRADA x*xx 

REM 

CLS 

LOCATE 10,10: PRINT M$;"/";WS;"/";Y$;" NO SE ENCONTRO EN EL FICHERO 


LOCATE 11,10: PRINT "(ENTER PARA CONTINUA)";: C$ = INPUT$(1) 
RETURN 


REM 

REM *xx*x* LA FECHA EXISTE *xx 

REM 

CLS 

LOCATE 10,32: PRINT "ESTA FECHA EXISTE" 
LOCATE 20,32: PRINT "(ENTER PARA CONTINUA)";:C$ = INPUT$(1) 
RETURN 

REM 

REM *x*x* GRABACION *x*x 

REM 

OPEN F$ FOR APPEND AS +1 

WRITE +1, D 

FOR I = 1 TO 3 


FOR J = 1 TO 20 
IF T$(1,J) > SPACE$(80) THEN WRITE 1, T$(1,J) ELSE WRITE $1, 
NEXT J 
NEXT 1 
CLOSE +1 
LOCATE 10,10: PRINT "TEXTO DE ";M$;"/";W$;"/";Y$;" GRABADO EN ";F$ 


LOCATE 12,10: PRINT "(ENTER PARA CONTINUA)";: C$ = INPUT$(1) 
RETURN 
REM 
REM xxx CAMBIAR FICHERO ANTIGUO xx 
REM 
CLS 
PRINT "ESPERE, POR FAVOR... ESCRIBIENDO FICHERO" 
OPEN F$ FOR OUTPUT AS +1 
OPEN "TEMP" FOR INPUT AS +2 
IF EOF(2) THEN GOTO 2530 
INPUT $2, DI 
IF EOF(2) THEN GOTO 2530 
WRITE $1, DI 
FOR: STO 9 
FOR. J' 31: TO" 20 
INPUT $2, S$: WRITE +1, S$ 
NEXT J 
NEXT I 
GOTO 2430 
CLOSE +1 
CLOSE +2 
KILL "TEMP" 
RETURN 
REMX 
REM x*xx*xx*x IMPRIMIR PAGINA *xx 
REM 
CLS 
LOCATE 1,1 
FOR: RM = 1: T0"20 ¿ 
IF T$(P,R) = SPACE$(80) THEN PRINT: GOTO 2650 
LOCATE R,1: PRINT T$(P,R) 
NEXT R : 
LOCATE 21,1: PRINT STRING$(80,"_") 
LOCATE 23,1: PRINT M$;"/";WS;"/";Y$,,,,"pag. ";P 
LOCATE 1,1 
LELRE=STETET RL 
RETURN 
REM Gi 
REM *xx*xx*x LECTURA DE LA FECHA *xx 


"FS 
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"N “ . 


NS 


SCAR (29): 010 => 


GOTO 319 


GOTO 3190 


2730 REM 

2740 CLS 

2750 LOCATE 2,1: PRINT "INTRODUCE LA FECHA (MMDDYY): "; 
2760 LET I = 1 

2770 WHILE 1 < 7 

2780 C$ = INPUT$(1) 

2790 C = ASC(C$) 

2800 IF (C$ = CHR$(8)) AND (1 > 1) THEN PRINT CHR$(29);" 
1: GOTO 2780 

2810 IF (C < 48) OR (C > 57) THEN GOTO 2780 

2820 PRINT C$; 

2830 LET E$(I) = C$ 

2840 ELE 

2850 WEND 

2860 LET D$ = "" 

2870 FOR I = 1 TO 6 

2880  D$ = D$ + E$(1) 

2890 NEXT 1 

2900 GOSUB 3030 

2910 IF X$ = "S" THEN GOTO 2950 

2920 PRINT :PRINT "FECHA NO VALIDA" 

2930 LOCATE 2,1: PRINT SPACE$(80) 

2940 GOTO 2750 

2950 CLS 

2960 PRINT "LA FECHA ES ";M$;"/";WS;"/";YS 

2970 LOCATE 4,1: PRINT "(ES CORRECTA"; 

2980 INPUT R$ 

2990 IF R$ = "N" THEN GOTO 2710 

3000 IF R$ <> "S" THEN GOTO 2970 

3010 D = VAL(D$) 

3020 RETURN 

3030 REM 

3040 REM **x* COMPROBAR FECHA xxx 

3050 REM 

3060 LET X$ = "S 

3070 LET S = 30 

3080 LET M$ = LEFT$(D$, 2) 

3090 LET W$ = MID$(D$, 3,2) 

3100 LET Y$ = RIGHT3(D$, 2) 

3110 M = VAL(M$): W = VAL(W$): Y = VAL(Y$) 

3120 PRINT :PRINT M$;"/";WS;"/";Y$ 

3130 IF (M< 1) OR (M > 12) THEN PRINT "MES NO INVALIDO": LET X$ = 
(o) 

3140 IF (Y < 85) OR (Y > 90) THEN PRINT "AXO NO VALIDO": LET X3 = 
3150 IF (M = 1) OR (M = 3) OR (M = 5) OR (M = 7) OR (M = 8) OR (M = 10) OR (M = 


12) THEN LET 


3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 


Ss = 31 


IF M= 2 THEN LET S = 28 


IF (M= 2) AND (Y = 88) THEN LET S = 29 


IF (W < 1) OR (W > S) THEN PRINT 
RETURN 

REM 

REM *x*x* SALIDA POR IMPRESORA x*xx*x 
REM 

CLS 

PRINT "IMPRIMIENDO .. 

FOR P = 1 TO 3 


LPRINT M$;"/";W$;"/";Y$,,,,"pag. 


FOR R = 1 TO 20 
LPRINT T$(P,R) 
NEXT R 
LPRINT CHR$(12) 
NEXT P 
RETURN 
REM 


REM *x*xx* PREPARAR LA IMPRESORA xxx 


REM 
LPRINT CHR$(27)+CHR$(64) 
CLS 


LOCATE 2,1: PRINT "(QUIERES IMPRESION GRANDE O PEQUEXA (G/P)" 


"DIA NOÍ VALIDO": LET X$ = "N" 


";P:LPRINT: LPRINT 


3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
BACK 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 


INPUT G$ 

IF G$ = "P" THEN LPRINT CHR$(27)+CHR$(15) 

IF G$ = "G" THEN LPRINT CHR$(18) 

IF (G$ <> "P") AND (G$ <> "G") THEN GOTO 3370 
CLS 


LOCATE 2,1: PRINT "COLOCA EL PAPEL Y PULSA ENTER”; 
C$ = INPUT$(1) 

RETURN 

REM 

REM *x** PANTALLA DE ENTRADA xxx 

REM 

IF O = 2 THEN GOTO 3580 

CLS 

LOCATE 2,1: PRINT "*CTRL T* PARA TERMINAR Y GRABAR" 


LOCATE 3,1: PRINT "*CTRL Q? PARA IR HACIA ARRIBA" 
LOCATE 4,1: PRINT "*CTRL Z”? PARA IR HACIA ABAJO" 
LOCATE 6,1: PRINT "ENTER A CONTINUA" 

C$ = INPUT$(1) 

CLS 

LET P=1 

LET RL = 1 

LOCATE 21,1: PRINT STRING$(80,"_") 

LOCATE 23,1: PRINT M$;"/";W$;"/";Y$,,,, "PAGE ";P 
LOCATE 1,1,1 

A$ = INKEY$: IF A$ = "" THEN GOTO 3630 

IF A$ = CHR$(8) THEN PRINT CHR$(29);" ";CHR$(29); 

IF A$ = CHR$(17) THEN GOSUB 4010: GOTO 3630 

IF A$ = CHR$(26) THEN GOSUB 4080: GOTO 3630: REM* GO FORWARD ONE PAGE 
IF LEN(A$) = 2 THEN GOSUB 3720: GOTO 3630 

IF A$ = CHR$(20) THEN GOTO 3710 

GOSUB 3850 

GOTO 3630 

RETURN 

REM 

REM *x*x* MOVIMIENTO DEL CURSOR *xx 

REM 

R = CSRLIN 

C = POS(0) 

IF MID$(A$,2,1)="$H" AND (R > 1) THEN PRINT CHR$(30); 
IF MID$(A$,2,1)="P" AND (R < 20) THEN PRINT CHR$(31); 
IF MID$(A$,2,1)="K" AND (C > 1) THEN PRINT CHR$(29); 
IF MID$(A$,2,1)="M" AND (C < 80) THEN PRINT CHR$(28); 
IF (RL = 20) AND (MID$(A$,2,1)="P") THEN GOSUB 4080: REM* PAGE AHEAD 
IF (RL = 1) AND (MID$(A$,2,1)="H") THEN GOSUB 4010: LOCATE 20,1: REM* PAGE 
LET RL = R 

RETURN 

REM 

REM *** GRABAR EN ARRAY xokx 

REM 

R = CSRLIN 

C = POS(0) 

IF (R = 20) AND (C = 80) AND (P = 3) THEN GOTO 4000 
IF A$ = CHR$(13) THEN GOTO 3970 

IF A$ = CHR$(9) THEN GOSUB 4440: GOTO 4000 

IF C = 80 THEN GOSUB 4150: GOTO 4000 

IF A$ = CHR$(8) THEN MID$(T$(P,R),C,1) = " " ELSE MID$(T$(P,R),C,1)= AS 
IF A$ <> CHR$(8) THEN PRINT As; 

GOTO 3990 

IF R = 20 THEN GOSUB 4080 ELSE R = R + 1:LOCATE R,1,1 
R = CSRLIN ; 

LET RL = R 

RETURN 

REM 

REM *x*x* UNA PAGINA HACIA ATRAS xxx 

REM 

IF P = 1 THEN GOTO 4070 

A E 

GOSUB 2570 
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4070 RETURN 

4080 REM 

4090 REM x*x** UNA PAGINA HACIA ADELANTE xxx 
4100 REM 

4110 IF P = 3 THEN GOTO 4140 

4120"P. =P: +1: 

4130 GOSUB 2570 


4140 RETURN 

4150 REM 

4160 REM *x*x* EDICION DE LINEA x*xx 

4170 REM 

4180 MID$(T$(P,R),80,1) = A$ 

4190 IF A$ = " " THEN R = R + 1: LET RL = R: LOCATE R,1,1:GOTO 4410 


4200 LET I = 80 
4210 LET X$ = "N" 
4220 WHILE X$ = "N" 
4230 1a1=i 
4240 IF MIDS$(TS(P,R),1,1) = " " THEN LET X$ = "F" 
4250 WEND 

4260 1 = 1 +1 
4270 FOR J = I TO 80 
4280  LET E$(J - 1 + 1) 
4290  MID$(T$(P,R),J,1) 
4300 NEXT J 

4310 LOCATE R,1: PRINT T$(P,R) 

4320 IF R< 20 THEN R = R + 1 ELSE LET R = 1 
4330 LET RL = 

4340 1 = 80 
4350 IF R = 
4360 LOCATE R, 
4370 FOR J = 1 TO I 
4380  PRINT E$(J); 

4390  MID$(T$(P,R),J,1) = E$(J) 
4400 NEXT J 

4410 C = POS(O0) 

4420 C=C-1 


MID$(TS(P,R),J,1) 


R 

I + : 
THEN GOSUB 4080 
dsd 


4430 RETURN 
4440 REM 
4450 REM *kk CHEQUEO DEL TAB *xx 
4460 REM 
4470 IF (R = 20) AND (C > 70) THEN LOCATE 20,80 ELSE PRINT AS; 
/ | 4480 RETURN Ñ 


N toda la tarea de 
análisis han de bus- 
carse esencialmente 
dos cualidades: la se- 
guridad en los proce- 
sos (controles, exa- 
men de todas las 
condiciones posibles 
y todos los casos, seguridades de proce- 
so...) y la claridad de exposición de los 
procesos diseñados. Es importante la cla- 
ridad tanto por el hecho de que las per- 
sonas que van a realizar la programación 
y las que van a utilizarlo posteriormente 
son distintas (muy comúnmente) de 
quien diseña el sistema, como por la cir- 
cunstancia (que se da con cierta fre- 
cuencia) de que posteriormente suelen 
tener que conocer (y quizá modificar o 
ampliar) el análisis otras personas distin- 
tas de quien hizo el primer estudio. Por 
todo esto es básico que se prepare una 
documentación exhaustiva del análisis y 
que, además, sea muy clara. A la clari- 
dad de exposición ayuda enormemente 
la utilización de normas y formularios 
preimpresos y el uso de organigramas, 
diagramas, ordinogramas... y, en gene- 
ral, cualquier representación gráfica y vi- 
sual de los procesos a realizar. 

Para la representación gráfica se pue- 
den utilizar diversos tipos de esquemas y 
no existe unanimidad respecto de qué 
tipo es el óptimo para cada descripción 
(ni incluso, en el nombre de cada tipo de 
representación). 

Nosotros en lo que sigue aludiremos a 
tres tipos de esquema de representa- 
ción: organigramas, ordinogramas y dia- 


TECNICAS DE ANALISIS 


ORGANIGRAMAS Y DIAGRAMAS 


gramas de flujo. Se entiende por organi- 
grama una representación bidimensio- 
nal de la estructura general de un proce- 
so o un sistema con sus relaciones y vin- 
culaciones. (Por supuesto, esta defini- 
ción es válida para los organigramas uti- 
lizados en el análisis informático; la defi- 
nición, el concepto e, incluso, la simbo- 


MOVIMIENTOS 
DEL 
DIA 


SELECCION 
POR CLAVE 
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logía son distintos si se trata de organi- 
gramas que reflejan una estructura em- 
presarial, el funcionamiento de un orga- 
nigrama cualquiera...). Por ordinograma 
entendemos una representación, del es- 
tilo de la anterior, en que se subraya la 


PROCESO DE 
ANOMALIAS 


conexión de los diferentes procesos para 
seguir su secuencia, y las relaciones en- 
tre una actividad y otras vinculadas a 
ella, los datos que deben pasar de un 
proceso a otro, etc. Por último, en el dia- 
grama de flujo (representación lineal del 
proceso) lo importante es subrayar el 
«Avance» de la información y la evolu- 
ción y transformación de los datos a lo 
largo del proceso, sin reflejar la estructu- 
ra general del proceso ni los elementos 
que intervienen en el programa. 


La concreción de la información au- 
menta a medida que seguimos los pasos 
indicados: organigrama, ordinograma y 
diagrama de flujo. Dentro de los organi- 
gramas, cabe la preparación de varios ti- 
pos, dependiendo de si queremos repre- 
sentar el proceso en su conjunto o una 
parte de él, toda una aplicación o unos 
programas; y así, se suelen preparar «or- 
ganigrama general de la aplicación», 
«Organigrama de programa», «organigra- 
ma de detalle de un proceso», etc. 


PASO 1 
Grabar P2 MAESTRO 


Grabar P4 DET 5 


PASO 2 


Leer P2 MOV 


PASO 3 PASO 5 


PASO 4 Actualización 
Paso a otro 


PASO 4 registro 
Emisión 


PASO 6 de informes 


PASO 4 


Grabar P4 MAESTRO 


Leer P2 MOV 


La utilización que se suele dar a los 
símbolos es la siguientes: 


Simbolo de proceso. Para re- 

[| presentar un tratamiento cual- 
quiera o una operación que 

no tenga otro símbolo previsto. 

Simbolo de operación ma- 

V / nual. Se refiere a los procesos 
fuera de línea (off-line) que 

haya que realizar. Es impor- 
tante reseñarlos, pues, al ser 
su velocidad normalmente 
lenta respecto al proceso por 
el ordenador y/o los periféri- 
cos deben ser tenidos muy en 


cuenta. 
Operación auxiliar. Normal- 


mente se representan con 
este símbolo las operaciones 
realizadas fuera de línea por 
otras máquinas auxiliares o 
mediante otros procesos pre- 
vios, que deben estar disponi- 
bles, pero que no son estricta- 
mente intervenciones del 
operador y no tienen, por tan- 
to, que consumir tiempo. 


| 


EXPRESIONES 


EMOS visto hasta aho- 
ra cómo se definen 
los datos de un pro- 
grama (especifican- 
do su estructura y su 
tipo) y cómo se pue- 
den asignar valores a 
las variables que van 
a contener dichos datos. Pero para que 
nuestros programas sirvan para algo, no 
basta con disponer de uno o varios da- 
tos: tenemos también que realizar opera- 
ciones con ellos. Estas operaciones se 
llevan a cabo por medio de expresiones. 

Una «expresión» es una fórmula que 
realiza una o varias «operaciones» con 
uno o más «datos» produciendo un nue- 
vo dato (el «resultado» de la expresión). 
En las expresiones existen, por tanto, dos 
clases de términos diferentes: las «opera- 
ciones» y los «datos». La expresión más 
sencilla es la que realiza una sola opera- 
ción con un solo dato, obteniendo un 
solo resultado. Por ejemplo, podemos to- 
mar el valor de una variable y cambiarlo 
de signo. Veamos cómo se hace esto en 
APL: 


En nuestro ejemplo, el dato es X (cuyo 
valor es 3) y la operación es el cambio 
de signo (representado por el signo me- 
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nos). El resultado de la operación es, na- 
turalmente, el valor -3. Por tanto, la fór- 
mula -X es una expresión en el lenguaje 
APL. 

Otras expresiones, también muy senci- 
llas, realizan una sola operación sobre 
dos datos diferentes. Por ejemplo, la fór- 
mula X+2 , válida en casi todos los len- 
guajes de ordenador, obtiene un resulta- 
do que supera en dos unidades al valor 
de X: 


Este último ejemplo nos indica que los 
datos que forman parte de una expresión 
pueden ser, indistintamente, constantes 
(como el 2) o variables (como la X). Ade- 
más puesto que el resultado de una ex- 
presión es también un dato, también 
puede formar parte de otra expresión. 
Esto significa que las expresiones pueden 
concatenarse unas con otras, actuando 
cada una sobre el resultado de la ante- 
rior, hasta llegar a ser tan complicadas 
como se desee. Por ejemplo: 


La expresión anterior calcula la distan- 
cia a la que cae la bala de un cañon si 
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el alcance máximo del arma (la distan- 
cia alcanzada por la bala cuando se dis- 
para el cañón con un ángulo de 45”) es 
«A» metros y el ángulo de elevación del 
cañón es igual a «E» grados. Para com- 
prenderla, vamos a descomponerla en 
partes elementales, cada una de las 
cuales es una expresión simple que rea- 
liza una sola operación sobre uno o dos 
objetos. En lo que sigue, supondremos 
que el valor de A es igual a 10.000 me- 
tros y que E es un ángulo igual a 15 gra- 
dos. 


A+10000 
E+15 


A 
10000 


15 


1. Comencemos el análisis de la ex- 
presión anterior por la derecha. La prime- 
ra expresión parcial que encontramos es 
la siguiente: 


E+180 
0.08333333333 


que no hace otra cosa que dividir el va- 
lor de la variable E entre 180. Se trata por 
tanto, de una expresión compuesta por 
una sola operación que actúa sobre dos 
datos, y cuyo resultado es, naturalmente, 
igual a 1/12. A este resultado lo llamare- 
mos R1. 

2. A continuación, tendremos que 
realizar la operación siguiente sobre el 
resultado anteriormente calculado: 


o0E:+180 
0.2617993878 


En APL, la operación representada con 
un circulo y aplicada a un solo dato, ob- 


tiene como resultado el producto del 
dato al que se aplica porel número «pi» 
(3,141592654). Por tanto, el número obte- 
nido, que llamaremos R2, será igual a 
pi/12. 

3. Viene ahora la tercera operación, 
que consiste en multiplicar por 2 el resul- 
tado R2 obtenido anteriormente: 


2x0E+180 
0.5235987756 


(2xR2) 


Llamaremos R3 al resultado obtenido. 
4. La cuarta operación se representa 
asi: 


LAx10210E:180  (LR5) 


En APL, la operación representada por 
un círculo y aplicada a dos datos repre- 
senta las funciones trigonométricas e hi- 
perbólicas. El número de la izquierda in- 
dica cuál de estas funciones se va a rea- 
lizar. Un 1 representa el seno, un 2 el co- 
seno, un 3 la tangente, etc. El dato que 
se coloca a la derecha es el valor del án- 
gulo, expresado en radianes, sobre el 
que queremos calcular la función trigo- 
nométrica correspondiente. En nuestro 
caso, como la expresión se reduce a «1 
círculo R3», queremos calcular el seno de 
R3 (pi/12 radianes o 307), que es exacta- 
mente igual a 1/2. Llamaremos R4 al nue- 
vo resultado obtenido. 

5. La operación siguiente que debe- 
mos realizar es una simple multiplicación. 


102x0E+180 (10R3) 


Llamaremos R5 al resultado de multipli- 
car A (10000) por R4 (0,5) que, natural- 
mente, es igual a 5000. 


6. Llegamos al fin a la última opera- 
ción de nuestra expresion: 


Ax102x0E:+180 (AXR4) 


En APL, el símbolo representado por un 
ángulo recto representa la funcion «par- 
te entera», que calcula la parte entera 
del dato al que se aplica. En nuestro 
caso, la parte entera de R5 resulta tam- 
bién ser igual a 5000, pues R5 es entero. 
Y éste es, precisamente, el resultado de 
la expresión completa. Esto significa que 
si disparamos un cañón cuyo alcance 
máximo es igual a 10000 metros con un 
ángulo de 15", la bala alcanzará sólo una 
distancia de 5000 metros, exactamente 
igual a la mitad del alcance máximo del 
arma. 

Veamos cómo se escribiría la misma 
expresión en el lenguaje BASIC: 


INT (AXSIN(283. 14159278E/180)) 


Observaremos que la expresión BASIC 
se parece mucho a la expresión APL, aun- 
que existen algunas diferencias. En pri- 
mer lugar, en BASIC se utilizan palabras 
reservadas en inglés para representar al- 
gunas operaciones, que reciben el nom- 
bre de «funciones incorporadas». En 
nuestro ejemplo aparecen dos: SIN (del 
inglés «sine»), que calcula el seno de un 
ángulo expresado en radianes, e INT (del 
inglés «INTEGER»), que calcula la parte 
entera de un número con decimales. Es- 
tas funciones incorporadas se caracteri- 
zan porque el dato al que se aplican 
debe ir entre paréntesis. Las otras dife- 
rencias consisten en la utilización de sím- 
bolos distintos para las operaciones arit- 
méticas elementales (un asterisco para 
la multiplicación y una línea inclinada 
para la división) y en la necesidad de es- 
pecificar explícitamente al valor de «pi». 

Veamos, por último, la versión PASCAL 
de esta misma expresión: 


Como se ve, es idéntica a la expresión 
BASIC. En realidad, la construcción de ex- 
presiones es la parte de los lenguajes de 
programación en que éstos difieren me- 
nos entre sí. Podrán utilizarse unos símbo- 
los u otros, o bien palabras reservadas, 
pero la expresión en sí suele parecerse 
bastante de un lenguaje a otro. Unica- 
mente en lenguajes como APL, mucho 
más potentes que los lenguajes de pro- 
gramación corrientes de la tercera gene- 
ración, encontramos operaciones (como 
la conversión de base de sistema de nu- 
meración, el producto de matrices o la 
inversión matricial) que se expresan con 
un solo símbolo, mientras en otros len- 
guajes (como BASIC o PASCAL) precisan 
para su cálculo de programas completos 
formados por numerosas instrucciones 
ejecutables. 

Acabamos de ver que una expresión 
compleja puede descomponerse siem- 
pre en dos o más expresiones más senci- 
llas. Sin embargo, aun no hemos dicho 
nada sobre el orden en que se realizarán 
las operaciones, o cómo puede conse- 
guirse que unas tengan lugar antes de 
otras. Como ejemplo, consideremos la 
expresión BASIC siguiente, 


que se compone de dos operaciones 
(una multiplicación y una suma) que ac- 
túan sobre un total de tres datos (los nú- 
meros 3, 4 y 2). ¿Cuál es la operación 
que debemos realizar primero? ¿La mul- 
tiplicación o la suma? El resultado final 
sería totalmente diferente en uno y otro 
caso. En efecto, si empezamos por la mul- 
tiplicación, la primera operación a reali- 
zar será 3 por 4, cuyo resultado es 12. En 
la segunda operación, habrá que sumar 
12 más 2, dando un resultado final de 14. 
Sin embargo, si empezáramos por la 
suma, comenzaríamos por calcular 4 más 
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2, que nos da un resultado de 6. A conti- 
nuación efectuaríamos la multiplicación 
de 3 por 6, lo que daría un resultado final 
igual a 18. ¿Cuál de los dos es correcto? 
¿146 18? 

No existe respuesta a la pregunta ante- 
rior. En realidad, los dos son correctos, 
dependiendo de las reglas del juego. En 
algunos lenguajes de programación, 
como en BASIC y PASCAL, se admite que 
unas operaciones tienen precedencia 
intrínseca sobre otras. En particular, en 
circunstancias como las anteriores, la 
multiplicación tiene siempre preceden- 
cia respecto a la suma. Por tanto, se rea- 
lizará antes, y el resultado de la expre- 
sión será igual a 14. En estos lenguajes, 
existe toda una jerarquía de operacio- 
nes que hay que aprender de memoria y 
tener presente a la hora de escribir pro- 
gramas que contengan expresiones con 
operaciones múltiples. 

Veamos la jerarquía de las operacio- 
nes en el lenguaje BASIC: 


1. Potenciación, representada por el 
símbolo ”. 

2. Cambio de signo, representado 
por el signo - aplicado a un solo dato. 

3.. Multiplicación (*) y división (/), in- 
distintamente. Cuando coinciden varias 
multiplicaciones o divisiones en la misma 
expresión, la que se encuentra más a la 
izquierda se efectúa primero. 

4. División entera, representada por 
el símbolo 1. 

5. Resto de la división entera, repre- 
sentada por la palabra reservada 
«MOD». Esta operación, junto con las seis 
operaciones lógicas indicadas más aba- 
jo, es una excepción a la regla de que 
las funciones representadas por pala- 
bras reservadas tienen siempre sus datos 
entre paréntesis. El resto de dividir 8 en- 
tre 3 se representa como «8 MOD 3». 

6. Suma (+) y resta (-) aplicadas a dos 
datos, indistintamente. Cuando coinci- 
den varias sumas y restas en la misma ex- 
presión, la que se encuentra más a la iz- 
quierda se efectúa primero. 

7. Comparaciones de valor, represen- 
tadas por los símbolos = (igualdad), < 
(menor que), > (mayor que), <= o =< 
(menor o igual que), >= Oo => (mayor o 
igual que) y <> o >< (desigualdad). 

8. Operación lógica NOT. 


9. Operación lógica AND. 
10. Operación lógica OR. 
11. Operación lógica XOR. 
12: Operación lógica EQV. 
13. Operación lógica IMP. 


Explicaremos con detalle las operacio- 
nes de comparación y las operaciones 
lógicas un poco más adelante. 

Veamos ahora la jerarquía de las ope- 
raciones en el lenguaje PASCAL: 


1. Cambio de signo, representado 
por el signo - aplicado a un solo dato. 

2. Operación lógica NOT. 

3. Multiplicación (*), división (/), divi- 
sión entera (DIV), resto de la división en- 
tera (MOD) y operación lógica AND, in- 
distintamente. Cuando coinciden varias 
de estas operaciones en la misma expre- 
sión, la que se encuentra más a la izquier- 
da se efectúa primero. 

4. Suma (+) y resta (-) aplicadas a 
dos datos, así como las operaciones ló- 
gicas OR y XOR, indistintamente. Cuando 
coinciden varias de ellas en la misma ex- 
presión, la que se encuentra más a la iz- 
quierda se efectúa primero. 

5. Comparaciones de valor, represen- 
tadas por los símbolos = (igualdad), < 
(menor que), > (mayor que), <= (menor 
O igual que), >= (mayor o igual que) y 
<> (desigualdad). 


Como puede observarse, el orden de 
precedencia de PASCAL se parece al de 
BASIC, pero no es idéntico, pues existen 
pares de operaciones cuya preceden- 
cia es inversa. 

En APL existe un número tan grande de 
operaciones posibles, que sería muy difí- 
cil aprender de memoria una tabla de 
precedencias. Por tanto, se decidió 
que todas las operaciones tendrían la 
misma precedencia, y que se ejecutaría 
primero aquella que estuviera situada 
más a la derecha. En el ejemplo dado al 
principio de este capítulo hemos aplica- 
do precisamente, y en forma sucesiva, 
esta regla de precedencia. También es 
de notar que en APL la expresión 3x4+2 
(correspondiente a la expresión BASIC o 
PASCAL 3*4+2 dada más arriba) tiene un 
valor igual a 18, pues la suma se realiza- 
rá antes que la multiplicación, por estar a 
su derecha. 


LOGO 


Cómo hacer 
que la tortuga 
olvide cosas 


Si al definir un procedimiento, es decir, 
enseñar a la tortuga a hacer una cosa 


nueva para ella y mandarle que lo eje- 
cute nos damos cuenta de que no dibu- 
ja lo que nosotros queremos, significa 
que nos hemos equivocado al escribir 
algo y tenemos que cambiarlo. 

Por ahora, lo que vamos a hacer es de- 
cirle que se olvide de eso nuevo que le 
hemos enseñado y definir el procedi- 
miento otra vez. 

Para borrar un procedimiento, es decir, 
que la tortuga se olvide de cómo se 
hace, usaremos el comando: 


BORRA “nombre 
o en abreviatura 
BO “nombre 


siendo nombre el nombre del procedi- 
miento que queremos borrar. 

Si en lugar de querer borrar un solo pro- 
cedimiento, deseamos borrar varios pon- 
dremos sus nombres en una lista: 


BO (nombre1 nombre? ... nombren) 


Veamos un ejemplo. Supongamos que 
queremos dibujar un triangulo asi: 


ALGO MAS SOBRE PROCEDIMIENTOS 


Si definimos un procedimiento: 


? PARA "TRIANGULO 


+ REPITE 3 [AV 45 GD 120] 


> FIN 


y mandamos a la tortuga que lo ejecute: 
? TRIANGULO 


nos saldrá: 


que no es lo que nosotros queremos. 

Por tanto, nuestro procedimiento no 
nos vale y tenemos que borrarlo de la 
memoria de la tortuga: 


Para comprobar que, efectivamente, 
lo ha olvidado si le decimos ahora: 


? TRIANGULO 
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nos responderá con un mensaje de error: 


1) 
pulsamos | 


Entonces, en este momento podemos 
enseñarle de nuevo a hacer el triangulo, 
pero correctamente: 


? PARA 


"TRIANGULO 


2504190 


+ REPITE 3 [AV 45 GD 120] 


FIN 


Por último, si en lugar de querer borrar 
uno o varios procedimientos, deseamos 
eliminar todos, no hace falta dar cada 
uno de sus nombres, sino que podemos 
utilizar el comando 


BOTODO 


que le indica a la tortuga que se olvide 
de todas las cosas nuevas que ha apren- 
dido. 


Como es lógico, cada procedimiento 
nuevo que creemos ha de tener un nom- 
bre diferente de los que ya están defini- 
dos para que la tortuga pueda distinguir- 
los y no se arme un lío. 

Por eso, en un momento determinado 
(sobre todo cuando ya hemos definido 
muchos procedimientos) nos puede inte- 
resar conocer los nombres de todas las 
cosas nuevas que le hemos enseñado a 
la tortuga. 

El comando que hace que la tortuga 
nos muestre todos los nombres de los pro- 
cedimientos definidos es 


IMTS 


abreviatura de IMprime Títulos. 


Así, por ejemplo, si tenemos definidos 
los siguientes procedimientos: triangulo, 
cuadrado, casa y figura, al escribir: 


2IMTS 


la tortuga responderá: 


PARA TRIANGULO 
PARA CUADRADO 
PARA CASA 
PARA FIGURA 
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Por otro lado, es posible que, a veces, 
nos interese ver no sólo los nombres de 
los procedimientos que hemos definido, 
sino también su contenido, es decir, su 
definición en sí. 

Para ello, disponemos de dos coman- 
dos. Si deseamos ver la definición de un 
procedimiento usaremos el comando 


IM “nombre 


siendo IM la abreviatura de IMprime y 
nombre el nombre del procedimiento. 

Por el contrario, si queremos ver la de- 
finicion de varios procedimientos a la 
vez, utilizaremos el comando 


IM (nombre1 nombre2 ... nombren) 


es decir, pondremos en una lista sus nom- 
bres. 

Por último, si lo que queremos hacer es 
ver la definición de todos los procedi- 
mientos que hayamos creado, el coman- 
do será 


IMTODO 


Como es lógico, en el caso de que no 
le hayamos enseñado nada nuevo a la 
tortuga o le hayamos mandado que lo ol- 
vide todo mediante el comando BOTO- 
DO, al pedirle que nos muestre los nom- 
bres de procedimientos o su definición 
no nos contestará nada. Por ejemplo: 


? BOTODO 
? IMTS 
? 


Diferentes pantallas 


En el caso de que tengamos muchos 
procedimientos, cuando la tortuga escri- 
ba sus nombres, al darle el comando 
IMTS, no cabrán todos en el espacio de 
pantalla del que ella dispone para dar- 


nos mensajes, que es mucho más peque- 
ño que el espacio reservado para hacer 
dibujos. 

Lo mismo nos puede ocurrir cuando 
queramos ver la definición de uno o va- 
rios procedimientos. 

Para que nos quepa en la pantalla 
toda la información que le podemos pe- 
dir a la tortuga, nos convendría que la 
parte de mensajes fuera más grande. 
Para ello, existe el comando 


TEXTO 


MENSAJES 


que hace que en la pantalla no haya una 
parte para dibujos. 
Asi: 


Ahora, al decirle IMTS, todos los nom- 
bres de procedimientos cabrán en la 
pantalla y podremos leerlos mejor. 

Cuando queramos volver a tener la 
pantalla dividida en dos partes, utilizare- 
mos el comando 


PANTALLAMIXTA 
o su abreviatura 
PM 


Si usamos este comando, el aspecto de 
la pantalla será el mismo de siempre 
pero se habrá borrado todo lo que hubié- 
semos escrito o dibujado anteriormente. 


Vamos a probarlo. Supongamos que 
hemos dibujado una circunferencia: 


Si escribimos: 


Cuando la pantalla aparece dividida 
en dos partes (dibujos y texto) se dice 
que está en MODO GRAFICO y cuando 
sólo se puede escribir en ella, pero la tor- 
tuga no pinta, se dice que está en MODO 
TEXTO. Resulta mejor utilizar este segundo 
modo cuando queramos que la tortuga 
ejecute órdenes que no lleven consigo el 
que realice dibujos. 


Os proponemos 


1. Enseña a la tortuga a dibujar un mo- 
linillo: 


2. Puedes enseñar a la tortuga a dibu- 
jar diferentes estrellas. Recuerda que la 
formula para las estrellas es: 


REPITE num. puntas (AV longitud RT 
total/num.puntas) 


donde longitud lo decides tú según quie- 
ras estrellas grandes o pequeñas. 


a LOGO 


Te damos algunos valores para el nú- 4. A ver si eres capaz de que la tortu- 
mero de puntas y el total: ga aprenda a dibujar un cohete. 
Núm. puntas | Total | 
720 
1440 o 
4680 a 


d. Define un procedimiento que al 
ejecutarlo dé como resultado lo siguien- 
te: 


5. Incluso puedes lograr que la tortu- 
ga dibuje un paisaje como éste: 


?CUuBO 
BEA ME HA ENSEÑADO A HACER ESTE CUBO 
72M 


En lugar de BEA, puedes poner tu nom- 
bre. 
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L Funciones 


UANDO empezamos a 
hablar de procedi- 
mientos y funciones, 
dijimos que estas últi- 
mas son como los pri- 
meros, pero con la 
particularidad de 
que devuelven un va- 
lor que, para entendernos, se podría de- 
cir que pasa a ocupar el lugar del nom- 
bre de la función en el punto en que fue 
llamada. 

Este valor puede ser de cualquier tipo 
escalar, es decir, valores simples como 
INTEGER, CHAR, BOOLEAN o de tipos defi- 
nidos por enumeración o subrangos. 
También está admitido un tipo que toda- 
vía no hemos estudiado: el tipo REAL. En 
general, se dice que una función es de 
tal tipo cuando el dato que devuelve es 
de ese tipo. 

Ya conocemos un ejemplo de función 
predefinida de tipo Boolean: la función 
ODD. Para utilizarla no se necesita cono- 
cer nada sobre cómo ha sido programa- 
da. Además, se puede utilizar como pa- 
rámetro con ella tanto variables como 
expresiones o constantes. 


program SacaCubos; 
var 
Ene: integer; 


begin 
Cubos= X X X xXx X 
end; 


begin 
for Ene:=1 to 10 do 


end. 


function Cubo (X: integer): integer; 
(X Devuelve el cubo de X X) 


(Xx Aquí comienza el programa principal %) 


writeln (?El cubo de ”>”,Ene:3,” es ”,Cubo (Ene) :6) 


En esta misma línea, es una buena 
práctica escribir las funciones de mane- 
ra que se puedan utilizar de modo simi- 
lar a ODD, es decir, absteniéndose de uti- 
lizar en ellas variables globales y no utili- 
zando el paso de parámetros por nom- 
bre, de manera que la única consecuen- 
cia de su utilización esté en el resultado 
devuelto. 


La única diferencia entre los procedi- 
mientos normales y las funciones a la 
hora de escribirlos está en la cabecera. 
En las funciones se utiliza la palabra re- 
servada FUNCTION en lugar de PROCEDU- 
RE; además, a continuación del nombre 
de la función (o a continuación de la de- 
finición de la lista de parámetros, caso 
de existir éstos) se debe indicar el tipo de 
resultado que devuelve. 

Por otra parte, cuando ya se haya ob- 
tenido el resultado, éste debe asignarse 
al nombre de la función como si de una 
variable se tratase. 

Como ejemplo, vamos a escribir un 
programa que presente en pantalla el 
cubo de los diez primeros números natu- 
rales. Para ello utilizaremos la función 
CUBO cuyo parámetro es INTEGER y que 
devuelve un resultado del mismo tipo: 
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La función CUBO así escrita es directa- 
mente utilizable por otros programas sin 
más que copiar la parte del programa 
PASCAL que le corresponae. El resultado 
devuelto es como si estuviera en el sitio 


A:= Cubo (2) - 3; 
B:= Cubo (A-1); 
writeln (Cubo (Cubo (3) - 17)); 


Veamos otro ejemplo. Supongamos 
que la función ODD no existiera y que hu- 
biera que escribirla; el parámetro es de 
tipo INTEGER y se devuelve el valor de 
tipo Boolean TRUE o FALSE según que 
aquél sea o no impar. 

Para saber si un número es impar o no, 
una posible manera es comprobar si el 
resto de dividirlo por dos es uno o cero: 


function Odd (N:z integer): boolean; 
begin 

Odd:= (N mod 2 = 1) 

end; 


Esta función se utilizaría exactamente 
igual que la original. Aunque un procedi- 
miento o función esté predefinido, como 
es el caso de ODD, podemos hacer nues- 


desde donde ha sido llamada, por lo que 
podría aparecer en cualquier lugar en 
que pudiera figurar un valor entero; por 
tanto, formas correctas de utilizarla se- 
ran: 


(-«Guarda5enA -) 
( - Guarda 4 al cubo en B + 
( - Presenta 1000 en pantalla ») 


tra propia definición, que será la que 
realmente se emplee (ODD no es una pa- 
labra reservada, sino un identificador 
predefinido). 

Un último ejemplo. En el procedimiento 
LeeColor que escribimos anteriormente 
podría suceder que la letra tecleada fue- 
se minúscula, con lo que en las instruc- 
ciones IF habría que poner: 


if (letra="R”) or (Letra='r') then C:= Rojo .. 


y análogamente en la instrucción dé 
asignación a la variable OK para permi- 
tir tanto mayúsculas como minúsculas. 
En lugar de ello, tras leer la tecla pul- 
sada la pasaremos a mayúscula si es que 
fue una minúscula. Para hacerlo, utiliza- 
remos la función MAYUSCULA cuyo pará- 
metro es un carácter y que devuelve el 
mismo carácter excepto en el caso en 
que aquél sea una letra minúscula, en 
que devuelve la mayúscula equivalente: 


begin 


else 
Mayuscula:= C 
end; 


La operación ord(C)- ord('a ) proporcio- 
na 0, 1, 2,... según que C sea 'a', 'b','c' 
Sia este número le sumamos ord ('A”), e 
tendremos el número de orden de 'A', 'B', 
'C'... con lo que utilizando la función CHR 


function .Mayuscula (C:z char): char; 
(Xx Si C es Hirtertas está entre *a” y ?*z” *) 


if ("a <= C) and (C <= *"z”) then 
Mayuscula:z= chr (ord(C)-ordí(*a”)+ord(*A”)) 


se consigue la letra mayúscula equiva- 
lente. Esto, claro está, siempre que la le- 
tra sea una de las 26 del alfabeto inglés. 
Si además se necesitara la letra Ñ: 


function Mayuscula (C:z char): char; 
begin 
if (*a? <= C) and (C <= ?2”) then 


Mayuscula:= chr (ord(C)-ord(”a”*)+ord(*A”)) 

else 

if C="R” then Mayuscula:= ”RÑ” 
else Mayuscula:= C 


Esta función podría incorporarse a su 
vez como una función del procedimien- 
to LeeColor en el sitio que le correspon- 


de, es decir, tras su zona de definición de 
datos y antes de sus instrucciones: 


procedure LeeColor (var C:z ColorPrimario_t); 
(X Lee de teclado un color Xx) 
var Letra: char; Ok: boolean; 


function Mayuscula (C:z char): char; 


begin 


if (*a* <= C) and (C <= *2”) then 
Mayuscula:= chr (ord(C)-ord(*a”*)+ord(*A”)) 


else 


if C="R” then Mayuscula:= *R” 


else Mayuscula:= C 


end; 


a y) 


begin 


(Xx Pedir letra del color: *) 
write (*Color? (R,V,A) ”); 


repeat 
readin (Letra); 


(* pasamos la letra a mayúscula: *) 
Letra:= Mayuscula (Letra); 
Ok:= (Letra="R”) or (Letra="V”) or (Letra=”"A”); 
if mot Ok then writeln ("Letra no válida.”) 


until Ok; 


if Letra = *R”? then C:= Rojo 


else if Letra = *V” 


y: else C:= Azul 
end; 


Por casualidad, tanto la variable de 
LeeColor como el parámetro de Mayus- 
cula tienen el mismo nombre, C; podrían 
llamarse de distinta manera, pero da lo 
mismo. La variable de LeeColor es global 
para Mayuscula, pero como se empieza 
a buscar primero entre las locales pro- 
pias, la que se utiliza en la función es la 
correcta. No obstante, si con ello se evi- 
tan confusiones, no hay que dudar en 
cambiar los nombres. 

Por otra parte, en PASCAL, como en la 
mayoría de lenguajes de programación, 
no suele estar permitido el empleo de le- 
tras acentuadas o eñes al escribir identi- 


then C:= Verde 


ficadores, de ahí la ausencia de acento 
en Mayuscula. 


1) Relaciones entre 
== procedimientos 


La función Mayuscula inserta en LeeCo- 
lor es local de este procedimiento, por lo 
que sólo puede utilizarse desde las ins- 
tucciones de éste. Para el programa 
principal en que estuviera a su vez inser- 
to el procedimiento, la función es un de- 
talle de las interioridades de LeeColor y 
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como tal no tiene conocimiento de su 
existencia. 

Podríamos haber escrito Mayuscula 
fuera de LeeColor como una función in- 
dependiente para poderla usar desde el 
programa principal, pero entonces se 
plantea la siguiente cuestión: ¿va a po- 
der seguir siendo utilizada por el procedi- 
miento? 

La regla para saber cuándo puede ser 
utilizado un procedimiento o función es 
la siguiente: 


«Puede llamarse a un procediminto o tun- 
ción desde dentro de su inmediato po- 
seedor tomado en su conjunto y siempre 


begin 


else 


begin 


repeat 
readin (Letra); 


until Ok; 


if Letra = *R” 


else C:= Azul 
end; 


Evidentemente, de esta manera Lee- 
Color pierde su «autosuficiencia» (en el 
sentido de que para utilizarlo no basta 
con copiarlo, sino que además es nece- 
sario que se encuentre presente Mayus- 
cula en nuestro programa), con la com- 
pensación de tener a Mayuscula dispo- 
nible para su uso por otras partes del pro- 
grama. 

Otra pregunta se plantea: si, además 
de esta función Mayuscula independien- 
te, LleeColor siguiera teniendo su propia 


function Mayuscula (C3 char): char; 


if ("a <= C) and (C <= *”z”) then 
Mayuscula:= chr (ord(C)-ord(*a”)+ord(”A”)) 


if C="R” then Mayuscula:= *RÑ” 
else Mayuscula:= C 


A y) 
procedure LeeColor (var C: ColorPrimario_t); 
(X Lee de teclado un color x*x) 

var Letra: char; Ok: boolean; 


(x Pedir letra del color: Xx) 
write (*"Color? (R,V,A) *); 


(Xx pasamos la letra a mayúscula: *X) 
Letra:= Mayuscula (Letra); 
Ok2i= (Letra="R”*) or (Letra="V”*) or (Letra="A”); 
if not Ok then writeln ("Letra no válida.”) 


then C:= Rojo 
else if Letra = "V” then C:= Verde 


desde puntos que se encuentren por de- 
trás de su cabecera.» 


Por ello, si Mayuscula fuese una función 
independiente, podría ser utilizada des- 
de dentro de su inmediato poseedor, es 
decir, el programa principal. Lo de «en su 
conjunto» significa que sería utilizable 
desde el programa principal y desde 
cualquier procedimiento o función inclui- 
do en éste, siempre y cuando se encuen- 
tre por detrás de Mayuscula. Así, para 
que Mayuscula sea utilizable desde Lee- 
Color y cualquier otro punto del progra- 
ma, bastará con ponerla por separado y 
delante de aquél: 


función local, ¿cuál de ellas utilizaría el 
procedimiento? 


Al igual que sucede con las variables, 
cuando el compilador encuentra un 
nombre de procedimiento o función, bus- 
ca primero entre los locales del punto en 
que se encuentra, por lo que LeeColor 
utilizaría su propia función y el resto del 
programa utilizaría la independiente. 


Veamos otro ejemplo. Supongamos un 
programa con la siguiente estructura: 


program Ejemplo; 
(x-— 
procedure Gordo; 


in 


procedure Segundo; 


begin 


procedure Activar; 


begin 


end. 


En este programa nos encontramos con 
lo siguiente: 

— El procediminto Gordo, como su in- 
mediato poseedor es el programa princi- 
pal, puede utilizarse desde cualquier 
parte, al estar su cabecera por delante 
de todas las zonas posibles de instruccio- 
nes. 

— El procedimiento Flaco se encuen- 
tra a un mismo nivel que Gordo, por lo 
que puede utilizarse desde cualquier 
punto del programa siempre que se en- 
cuentre por detrás de su cabecera, es 
decir, desde cualquier parte menos des- 
de el interior de Gordo. 

— El inmediato poseedor de Primero 
es Gordo, por lo que sólo puede utilizar- 
se desde éste en su conjunto, es decir, 
desde sus instrucciones y desde las ins- 
trucciones de Segundo. Sucede lo mismo 
con Segundo, con la diferencia de que 
este último no puede utilizarse desde las 
instrucciones de Primero, pues no están 
por detrás de su cabecera. 

— Análogamente, Activar sólo puede 
utilizarse desde el interior de Flaco. 


¡nn 2) 


var LocalDeGordo: char; 
A 
procedure Primero; 


(X Instrucciones de Primero X*X) 


(X Instrucciones de Segundo *) 


(X Instrucciones de Activar *) 


(X Instrucciones del programa *) 


Deliberadamente se ha omitido la po- 
sibilidad, no reñida con la regla, de que, 
por ejemplo, Primero se utilice también 
desde sus propias instrucciones, o de 
que entre las instrucciones de Flaco se 
encuentre una llamada a Activar, entre 
cuyas instrucciones esté a su vez una lla- 
mada a Flaco, etc. Situaciones así, en 
que un procedimiento se llama a sí mis- 
mo de manera directa o indirecta, se 
dice que son «recursivas», y las estudia- 
remos en otra ocasión. 

La cabecera debe encontrarse por de- 
lante del punto de utilización porque una 
de las características del lenguaje PAS- 
CAL es que, sea cual sea el punto en el 
que aparece un identificador, éste debe 
haber sido definido previamente. Por 
ejemplo, el programa puede utilizar una 
variable que ha sido definida previamen- 
te en la zona VAR utilizando un tipo que 
ha sido definido previamente en las zo- 
nas TYPE como sub-rango delimitado por 
dos constantes definidas previamente en 
la zona CONST. A la hora de escribir un 
programa esto no es una gran limitación, 
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pues no tiene demasiado sentido utilizar 
algo que todavia no se ha definido. 


En definitiva, las ventajas principales 
de ubicar unos procedimientos dentro 
de otros son dos: 


Por un lado, es posible hacer a estos úl- 
timos «autosuficientes», pues contienen 
todas las funciones, procedimientos y va- 
riables necesarios para su funcionamien- 
to, de manera que basta con copiarlos 
para utilizarlos en otros programas (aun- 
que, en el caso concreto de LeeColor, el 


tipo ColorPrimario t debe estar definido 
en el programa principal). 

Por otro, permite sustituir los procedi- 
mientos generales, disponibles para 
todo el programa (entre los que se inclu- 
yen los predefinidos), por los suyos pro- 
pios. 

Con los procedimientos y funciones de 
uso general, sin embargo, lo más cómo- 
do será escribirlos de manera indepen- 
diente para así poderlos utilizar desde 
cualquier punto, como es el caso de Ma- 
yuscula. 


LENGUAJE C 


Sentencia 
IF-ELSE 


A sentencia ¡fnos per- 
mite ejecutar una 
sentencia, si se cum- 
ple una condición, 
como la contraria, a 
través de else. 
if (expresión) 
sentencia A; 
else 
sentencia B; 


O Sentencia SWITCH 


La sentencia switch va acompañada 
de una expresión entre paréntesis. La 
sentencia evalúa la expresión y compa- 
ra su valor con todos los casos (case). Si 
alguno de los casos es idéntico al valor 
de la expresión que acompaña al switch, 
se ejecutará la sentencia etiquetada por 
case 

La línea con default se utiliza en el su- 
puesto de que no se satisfaga ninguno 
de los case al compararse con la expre- 
sión que acompaña al switch. 

Veamos un ejemplo. 


switch (c) 

£ 

cana 317? 
Case 'n': 
blancos += ]; 
break :; 


Jefault 


Otros += T: 


break; 


) 


OTROS LENGUAJES 


il Sentencia WHILE 


Es una sentencia que se utiliza para la 
construcción de bucles. La repetición 
puede llevarse a cabo sobre una senten- 
cia o bloque de sentencias. 

while (expresión) 

sentencia; 

Se procede de la siguiente forma: se 
evalúa la expresión y si resulta ser cierta, 
se ejecuta la sentencia una y otra vez 
hasta que la expresión deje de ser cierta. 

Veamos un ejemplo de esta sentencia. 


cuenta = 1; 
while (cuenta 2 3) 


£ 


printfí"estamos contandoin”>; 


cuenta = cuenta + 1; 


3 


O Sentencia FOR 


La sentencia for se utiliza para que una 
sentencia o bloque de sentencias se eje- 
cute repetidamente en función de tres 
expresiones separadas por punto y 
coma. 

La sintaxis general de un bucle for es: 

for (expresión1; expresión2; expre- 
sión3) 
sentencia; 


so OTROS LENGUAJES 


La primera expresión es la de inicializa- 
ción, la segunda de condición de prue- 
ba y la tercera se evalúa al final de cada 
bucle. 


Sentencia 
Ú DO-WHILE 


El bucle do-while comprueba la condi- 
ción después de cada pasada a través 
de la sentencia o bloque de sentencias. 
Cuando la condición deja de cumplirse, 
el bucle finaliza. 


La sintaxis utilizada es: 


do 
sentencia | 
while (expresion); 


| Sentencias BREAK 
== y CONTINUE 


La sentencia “break” fuerza la salida 
de un bucle for, while o do de la misma 
forma que sucedía en switch. 

La sentencia confinue hace que el res- 
to de la iteración se ignore, obligando a 
comenzar una nueva iteración. 


O Sentencia GOTO 


La sintaxis de la sentencia es: 
goto etiqueta 


La etiqueta se rige por las mismas nor- 
mas que las variables. El uso más normal 
de la sentencia goto consiste en salir de 
un proceso en una estuctura que este 
fuertemente anidada, ya que en este 
caso la utilización de la sentencia break 
sólo nos llevaría a abandonar la estruc- 
tura más interna. 
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